home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL1.LZH / TIME.INC < prev    next >
Text File  |  1984-07-13  |  450b  |  24 lines
  1. PROCEDURE ShowTime;
  2. { procedure for Dos 2.0 function $2C (get time)
  3. { Danny Cavasos       June 1984 }
  4. TYPE
  5.   varX=RECORD
  6.     varL,varH:BYTE;
  7.   END;
  8.   TimeRec=RECORD
  9.     AX,BX:varX;
  10.     Min,Hour,Msec,Sec:BYTE;
  11.     BP,SI,DI,DS,ES,FLAGS:INTEGER;
  12.   END;
  13. VAR
  14.   TimeParm:TimeRec;
  15. BEGIN
  16.   GOTOXY(70,2);
  17.   WITH TimeParm DO
  18.     BEGIN
  19.       AX.varH:=$2C;
  20.       MsDos(TimeParm);
  21.       WRITE(Hour,':',Min,':',Sec,'.',Msec);
  22.     END;
  23. END;
  24.